/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc A) / Acorn User China CD-ROM (UK) (Disc A).bin / DEMON / DEVELOPER / NETCONF0.ARC / !NetConfig_Lib_net

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 09 f4 3e 6e 65 | 74 0d 00 14 21 f4 20 43 |.....>ne|t...!. C|
|00000010| 6f 70 79 72 69 67 68 74 | 20 31 39 39 35 20 43 6f |opyright| 1995 Co|
|00000020| 6c 69 6e 20 48 6f 67 62 | 65 6e 0d 00 1e 44 f4 20 |lin Hogb|en...D. |
|00000030| 59 6f 75 20 6d 61 79 20 | 75 73 65 20 74 68 69 73 |You may |use this|
|00000040| 20 63 6f 64 65 20 66 6f | 72 20 61 6e 79 20 6e 6f | code fo|r any no|
|00000050| 6e 2d 70 72 6f 66 69 74 | 20 70 75 72 70 6f 73 65 |n-profit| purpose|
|00000060| 2c 20 70 72 6f 76 69 64 | 65 64 20 79 6f 75 0d 00 |, provid|ed you..|
|00000070| 28 3e f4 20 64 6f 63 75 | 6d 65 6e 74 20 61 6e 79 |(>. docu|ment any|
|00000080| 20 63 68 61 6e 67 65 73 | 20 6d 61 64 65 20 61 6e | changes| made an|
|00000090| 64 20 61 70 70 6c 79 20 | 74 68 65 20 73 61 6d 65 |d apply |the same|
|000000a0| 20 63 6f 6e 64 69 74 69 | 6f 6e 73 2e 0d 00 32 04 | conditi|ons...2.|
|000000b0| 0d 00 3c 0f dd 20 a4 6e | 65 74 5f 69 6e 69 74 0d |..<.. .n|et_init.|
|000000c0| 00 46 10 6e 65 74 5f 73 | 74 61 67 65 25 3d 30 0d |.F.net_s|tage%=0.|
|000000d0| 00 50 06 3d 30 0d 00 5a | 04 0d 00 64 31 f4 20 73 |.P.=0..Z|...d1. s|
|000000e0| 65 74 20 64 65 66 61 75 | 6c 74 73 20 62 65 66 6f |et defau|lts befo|
|000000f0| 72 65 20 72 75 6e 6e 69 | 6e 67 20 70 72 6f 76 69 |re runni|ng provi|
|00000100| 64 65 72 20 6d 6f 64 75 | 6c 65 0d 00 6e 13 dd 20 |der modu|le..n.. |
|00000110| f2 6e 65 74 5f 64 65 66 | 61 75 6c 74 73 0d 00 78 |.net_def|aults..x|
|00000120| 1e 6e 65 74 5f 70 72 6f | 76 69 64 65 72 5f 76 61 |.net_pro|vider_va|
|00000130| 72 69 61 62 6c 65 73 24 | 3d 22 22 0d 00 82 1c 6e |riables$|=""....n|
|00000140| 65 74 5f 6d 61 69 6c 5f | 70 72 6f 74 6f 63 6f 6c |et_mail_|protocol|
|00000150| 24 3d 22 50 4f 50 22 0d | 00 8c 1d 6e 65 74 5f 6b |$="POP".|...net_k|
|00000160| 61 39 71 5f 70 72 6f 74 | 6f 63 6f 6c 24 3d 22 73 |a9q_prot|ocol$="s|
|00000170| 6c 69 70 22 0d 00 96 14 | 6e 65 74 5f 66 69 78 65 |lip"....|net_fixe|
|00000180| 64 5f 69 70 24 3d 22 22 | 0d 00 a0 17 6e 65 74 5f |d_ip$=""|....net_|
|00000190| 74 69 6d 65 5f 73 65 72 | 76 65 72 24 3d 22 22 0d |time_ser|ver$="".|
|000001a0| 00 aa 15 6e 65 74 5f 69 | 70 5f 70 72 65 66 69 78 |...net_i|p_prefix|
|000001b0| 24 3d 22 22 0d 00 b4 1f | 6e 65 74 5f 72 6f 75 74 |$=""....|net_rout|
|000001c0| 65 72 24 3d 22 31 35 38 | 2e 31 35 32 2e 31 2e 32 |er$="158|.152.1.2|
|000001d0| 32 32 22 0d 00 be 27 6e | 65 74 5f 6d 6f 64 65 72 |22"...'n|et_moder|
|000001e0| 61 74 6f 72 73 24 3d 22 | 6d 6f 64 65 72 61 74 6f |ators$="|moderato|
|000001f0| 72 73 2e 75 75 2e 6e 65 | 74 22 0d 00 c8 17 6e 65 |rs.uu.ne|t"....ne|
|00000200| 74 5f 6e 65 77 73 5f 67 | 72 6f 75 70 73 24 3d 22 |t_news_g|roups$="|
|00000210| 22 0d 00 d2 1a 6e 65 74 | 5f 6e 65 77 73 5f 70 72 |"....net|_news_pr|
|00000220| 65 66 69 78 24 3d 22 4e | 65 74 22 0d 00 dc 19 6e |efix$="N|et"....n|
|00000230| 65 74 5f 70 6f 70 5f 70 | 72 65 66 69 78 24 3d 22 |et_pop_p|refix$="|
|00000240| 4e 65 74 22 0d 00 e6 18 | 6e 65 74 5f 6e 61 6d 65 |Net"....|net_name|
|00000250| 5f 73 65 72 76 65 72 32 | 24 3d 22 22 0d 00 f0 18 |_server2|$=""....|
|00000260| 6e 65 74 5f 6e 61 6d 65 | 5f 73 65 72 76 65 72 33 |net_name|_server3|
|00000270| 24 3d 22 22 0d 00 fa 1e | 6e 65 74 5f 73 6c 69 70 |$=""....|net_slip|
|00000280| 5f 73 63 72 69 70 74 24 | 3d 22 4e 65 74 53 6c 69 |_script$|="NetSli|
|00000290| 70 22 0d 01 04 1b 6e 65 | 74 5f 73 6c 69 70 5f 6c |p"....ne|t_slip_l|
|000002a0| 6f 67 69 6e 5f 66 69 6c | 65 24 3d 22 22 0d 01 0e |ogin_fil|e$=""...|
|000002b0| 1d 6e 65 74 5f 6c 6f 67 | 69 6e 5f 70 72 6f 6d 70 |.net_log|in_promp|
|000002c0| 74 24 3d 22 6f 67 69 6e | 3a 22 0d 01 18 23 6e 65 |t$="ogin|:"...#ne|
|000002d0| 74 5f 70 61 73 73 77 6f | 72 64 5f 70 72 6f 6d 70 |t_passwo|rd_promp|
|000002e0| 74 24 3d 22 61 73 73 77 | 6f 72 64 3a 22 0d 01 22 |t$="assw|ord:".."|
|000002f0| 23 6e 65 74 5f 70 72 6f | 74 6f 63 6f 6c 5f 70 72 |#net_pro|tocol_pr|
|00000300| 6f 6d 70 74 24 3d 22 72 | 6f 74 6f 63 6f 6c 3a 22 |ompt$="r|otocol:"|
|00000310| 0d 01 2c 1e 6e 65 74 5f | 70 72 6f 74 6f 63 6f 6c |..,.net_|protocol|
|00000320| 5f 72 65 70 6c 79 24 3d | 22 73 6c 69 70 22 0d 01 |_reply$=|"slip"..|
|00000330| 36 1a 6e 65 74 5f 73 74 | 61 72 74 75 70 5f 70 72 |6.net_st|artup_pr|
|00000340| 6f 6d 70 74 24 3d 22 22 | 0d 01 40 17 6e 65 74 5f |ompt$=""|..@.net_|
|00000350| 6d 61 69 6c 5f 64 6f 6d | 61 69 6e 24 3d 22 22 0d |mail_dom|ain$="".|
|00000360| 01 4a 12 6e 65 74 5f 6d | 74 75 24 3d 22 35 37 36 |.J.net_m|tu$="576|
|00000370| 22 0d 01 54 14 f4 20 75 | 73 65 72 20 76 61 72 69 |"..T.. u|ser vari|
|00000380| 61 62 6c 65 73 0d 01 5e | 1e e7 97 a4 64 65 66 73 |ables..^|....defs|
|00000390| 74 72 28 6e 65 74 5f 61 | 63 63 6f 75 6e 74 24 2c |tr(net_a|ccount$,|
|000003a0| 22 22 29 0d 01 68 1b e7 | 97 a4 64 65 66 73 74 72 |"")..h..|..defstr|
|000003b0| 28 6e 65 74 5f 70 6f 70 | 31 24 2c 22 22 29 0d 01 |(net_pop|1$,"")..|
|000003c0| 72 1b e7 97 a4 64 65 66 | 73 74 72 28 6e 65 74 5f |r....def|str(net_|
|000003d0| 70 6f 70 32 24 2c 22 22 | 29 0d 01 7c 1b e7 97 a4 |pop2$,""|)..|....|
|000003e0| 64 65 66 73 74 72 28 6e | 65 74 5f 70 6f 70 33 24 |defstr(n|et_pop3$|
|000003f0| 2c 22 22 29 0d 01 86 1e | e7 97 a4 64 65 66 73 74 |,"")....|...defst|
|00000400| 72 28 6e 65 74 5f 6e 75 | 6d 62 65 72 31 24 2c 22 |r(net_nu|mber1$,"|
|00000410| 22 29 0d 01 90 1e e7 97 | a4 64 65 66 73 74 72 28 |")......|.defstr(|
|00000420| 6e 65 74 5f 6e 75 6d 62 | 65 72 32 24 2c 22 22 29 |net_numb|er2$,"")|
|00000430| 0d 01 9a 1e e7 97 a4 64 | 65 66 73 74 72 28 6e 65 |.......d|efstr(ne|
|00000440| 74 5f 6e 75 6d 62 65 72 | 33 24 2c 22 22 29 0d 01 |t_number|3$,"")..|
|00000450| a4 23 e7 97 a4 64 65 66 | 73 74 72 28 6e 65 74 5f |.#...def|str(net_|
|00000460| 6f 74 68 65 72 5f 6e 75 | 6d 62 65 72 24 2c 22 22 |other_nu|mber$,""|
|00000470| 29 0d 01 ae 1e e7 97 a4 | 64 65 66 73 74 72 28 6e |).......|defstr(n|
|00000480| 65 74 5f 61 63 63 6f 75 | 6e 74 24 2c 22 22 29 0d |et_accou|nt$,"").|
|00000490| 01 b8 21 e7 97 a4 64 65 | 66 73 74 72 28 6e 65 74 |..!...de|fstr(net|
|000004a0| 5f 69 70 5f 61 64 64 72 | 65 73 73 24 2c 22 22 29 |_ip_addr|ess$,"")|
|000004b0| 0d 01 c2 21 e7 97 a4 64 | 65 66 73 74 72 28 6e 65 |...!...d|efstr(ne|
|000004c0| 74 5f 70 75 6c 73 65 5f | 64 69 61 6c 24 2c 22 22 |t_pulse_|dial$,""|
|000004d0| 29 0d 01 cc 22 e7 97 a4 | 64 65 66 73 74 72 28 6e |)..."...|defstr(n|
|000004e0| 65 74 5f 64 69 61 6c 5f | 70 72 65 66 69 78 24 2c |et_dial_|prefix$,|
|000004f0| 22 22 29 0d 01 d6 1f e7 | 97 a4 64 65 66 73 74 72 |"").....|..defstr|
|00000500| 28 6e 65 74 5f 70 61 73 | 73 77 6f 72 64 24 2c 22 |(net_pas|sword$,"|
|00000510| 22 29 0d 01 e0 27 e7 97 | a4 64 65 66 73 74 72 28 |")...'..|.defstr(|
|00000520| 6e 65 74 5f 6d 61 69 6e | 5f 75 73 65 72 24 2c 22 |net_main|_user$,"|
|00000530| 6a 62 6c 6f 67 67 73 22 | 29 0d 01 ea 23 e7 97 a4 |jbloggs"|)...#...|
|00000540| 64 65 66 73 74 72 28 6e | 65 74 5f 70 6f 70 5f 70 |defstr(n|et_pop_p|
|00000550| 61 73 73 77 6f 72 64 24 | 2c 22 22 29 0d 01 f4 2d |assword$|,"")...-|
|00000560| e7 97 a4 64 65 66 73 74 | 72 28 6e 65 74 5f 72 65 |...defst|r(net_re|
|00000570| 61 6c 5f 6e 61 6d 65 24 | 2c 22 4a 6f 73 65 70 68 |al_name$|,"Joseph|
|00000580| 20 42 6c 6f 67 67 73 22 | 29 0d 01 fe 27 e7 97 a4 | Bloggs"|)...'...|
|00000590| 64 65 66 73 74 72 28 6e | 65 74 5f 6f 72 67 61 6e |defstr(n|et_organ|
|000005a0| 69 7a 61 74 69 6f 6e 24 | 2c 22 48 6f 6d 65 22 29 |ization$|,"Home")|
|000005b0| 0d 02 08 05 e1 0d 02 12 | 04 0d 02 1c 1e dd 20 f2 |........|...... .|
|000005c0| 6e 65 74 5f 70 72 6f 67 | 72 65 73 73 5f 64 6c 67 |net_prog|ress_dlg|
|000005d0| 28 74 65 78 74 24 29 0d | 02 26 28 f2 64 6c 67 5f |(text$).|.&(.dlg_|
|000005e0| 62 65 67 69 6e 28 22 6e | 65 74 70 72 6f 67 72 65 |begin("n|etprogre|
|000005f0| 73 73 22 2c 6e 65 74 5f | 74 69 74 6c 65 24 29 0d |ss",net_|title$).|
|00000600| 02 30 17 20 f2 64 6c 67 | 5f 74 65 78 74 28 74 65 |.0. .dlg|_text(te|
|00000610| 78 74 24 2c 35 29 0d 02 | 3a 1d 20 f2 64 6c 67 5f |xt$,5)..|:. .dlg_|
|00000620| 62 75 74 74 6f 6e 28 22 | 41 62 6f 72 74 22 2c 31 |button("|Abort",1|
|00000630| 2c a3 29 0d 02 44 0c f2 | 64 6c 67 5f 65 6e 64 0d |,.)..D..|dlg_end.|
|00000640| 02 4e 0d f2 64 6c 67 5f | 73 68 6f 77 0d 02 58 05 |.N..dlg_|show..X.|
|00000650| e1 0d 02 62 04 0d 02 6c | 22 f4 20 63 68 65 63 6b |...b...l|". check|
|00000660| 20 69 66 20 49 50 20 61 | 64 64 72 65 73 73 20 69 | if IP a|ddress i|
|00000670| 73 20 76 61 6c 69 64 0d | 02 76 18 dd 20 a4 6e 65 |s valid.|.v.. .ne|
|00000680| 74 5f 69 70 5f 76 61 6c | 69 64 28 69 70 24 29 0d |t_ip_val|id(ip$).|
|00000690| 02 80 12 ea 20 69 25 2c | 6e 75 6d 24 2c 6e 75 6d |.... i%,|num$,num|
|000006a0| 25 0d 02 8a 0c 69 70 24 | 2b 3d 22 2e 22 0d 02 94 |%....ip$|+="."...|
|000006b0| 0e e3 20 69 25 3d 31 20 | b8 20 34 0d 02 9e 29 20 |.. i%=1 |. 4...) |
|000006c0| 20 6e 75 6d 24 3d a4 73 | 74 72 74 6f 6b 28 69 70 | num$=.s|trtok(ip|
|000006d0| 24 2c 22 2e 22 29 3a 20 | 6e 75 6d 25 3d bb 28 6e |$,"."): |num%=.(n|
|000006e0| 75 6d 24 29 0d 02 a8 2e | 20 20 e7 20 6e 75 6d 25 |um$)....|  . num%|
|000006f0| 3c 30 20 84 20 6e 75 6d | 25 3e 32 35 35 20 84 20 |<0 . num|%>255 . |
|00000700| c3 28 6e 75 6d 25 29 3c | 3e 6e 75 6d 24 20 8c 20 |.(num%)<|>num$ . |
|00000710| 3d a3 0d 02 b2 05 ed 0d | 02 bc 0d 3d 28 69 70 24 |=.......|...=(ip$|
|00000720| 3d 22 22 29 0d 02 c6 04 | 0d 02 d0 2d f4 20 76 61 |="")....|...-. va|
|00000730| 72 69 6f 75 73 20 63 68 | 65 63 6b 73 2c 20 73 65 |rious ch|ecks, se|
|00000740| 74 20 6f 6b 3d 46 41 4c | 53 45 20 6f 6e 20 66 61 |t ok=FAL|SE on fa|
|00000750| 69 6c 75 72 65 0d 02 da | 18 dd 20 f2 6e 65 74 5f |ilure...|.. .net_|
|00000760| 63 68 65 63 6b 5f 61 63 | 63 6f 75 6e 74 0d 02 e4 |check_ac|count...|
|00000770| 17 e7 20 6e 65 74 5f 61 | 63 63 6f 75 6e 74 24 3e |.. net_a|ccount$>|
|00000780| 22 22 20 e1 0d 02 ee 3c | f2 65 72 72 6f 72 5f 72 |"" ....<|.error_r|
|00000790| 65 70 6f 72 74 28 30 2c | 22 59 6f 75 20 6d 75 73 |eport(0,|"You mus|
|000007a0| 74 20 65 6e 74 65 72 20 | 79 6f 75 72 20 61 63 63 |t enter |your acc|
|000007b0| 6f 75 6e 74 20 6e 61 6d | 65 22 29 3a 6f 6b 3d a3 |ount nam|e"):ok=.|
|000007c0| 0d 02 f8 05 e1 0d 03 02 | 04 0d 03 0c 13 dd 20 f2 |........|...... .|
|000007d0| 6e 65 74 5f 63 68 65 63 | 6b 5f 69 70 0d 03 16 53 |net_chec|k_ip...S|
|000007e0| e7 20 ac 20 a4 6e 65 74 | 5f 69 70 5f 76 61 6c 69 |. . .net|_ip_vali|
|000007f0| 64 28 6e 65 74 5f 69 70 | 5f 61 64 64 72 65 73 73 |d(net_ip|_address|
|00000800| 24 29 20 f2 65 72 72 6f | 72 5f 72 65 70 6f 72 74 |$) .erro|r_report|
|00000810| 28 30 2c 22 49 6e 76 61 | 6c 69 64 20 49 50 20 61 |(0,"Inva|lid IP a|
|00000820| 64 64 72 65 73 73 22 29 | 3a 6f 6b 3d a3 3a e1 0d |ddress")|:ok=.:..|
|00000830| 03 20 80 e7 20 c0 6e 65 | 74 5f 69 70 5f 61 64 64 |. .. .ne|t_ip_add|
|00000840| 72 65 73 73 24 2c a9 6e | 65 74 5f 69 70 5f 70 72 |ress$,.n|et_ip_pr|
|00000850| 65 66 69 78 24 29 3c 3e | 6e 65 74 5f 69 70 5f 70 |efix$)<>|net_ip_p|
|00000860| 72 65 66 69 78 24 20 f2 | 65 72 72 6f 72 5f 72 65 |refix$ .|error_re|
|00000870| 70 6f 72 74 28 30 2c 22 | 54 68 65 20 49 50 20 61 |port(0,"|The IP a|
|00000880| 64 64 72 65 73 73 20 6d | 75 73 74 20 62 65 67 69 |ddress m|ust begi|
|00000890| 6e 20 77 69 74 68 20 22 | 2b 6e 65 74 5f 69 70 5f |n with "|+net_ip_|
|000008a0| 70 72 65 66 69 78 24 29 | 3a 6f 6b 3d a3 3a e1 0d |prefix$)|:ok=.:..|
|000008b0| 03 21 05 e1 0d 03 48 04 | 0d 03 52 1d f4 20 73 61 |.!....H.|..R.. sa|
|000008c0| 76 65 20 74 68 65 20 75 | 73 65 72 27 73 20 63 68 |ve the u|ser's ch|
|000008d0| 69 6f 63 65 73 0d 03 5c | 17 dd 20 f2 6e 65 74 5f |ioces..\|.. .net_|
|000008e0| 73 61 76 65 5f 63 68 6f | 69 63 65 73 0d 03 66 08 |save_cho|ices..f.|
|000008f0| ea 20 66 25 0d 03 70 14 | f2 6c 69 62 72 61 72 79 |. f%..p.|.library|
|00000900| 28 22 73 61 76 65 22 29 | 0d 03 7a 23 f2 73 61 76 |("save")|..z#.sav|
|00000910| 65 5f 6f 70 65 6e 28 22 | 4e 65 74 43 6f 6e 66 69 |e_open("|NetConfi|
|00000920| 67 3a 43 68 6f 69 63 65 | 73 22 29 0d 03 84 1e f2 |g:Choice|s").....|
|00000930| 73 61 76 65 5f 76 61 72 | 73 28 22 6e 65 74 5f 70 |save_var|s("net_p|
|00000940| 72 6f 76 69 64 65 72 22 | 29 0d 03 8e 35 f2 73 61 |rovider"|)...5.sa|
|00000950| 76 65 5f 76 61 72 73 28 | 22 6e 65 74 5f 6d 6f 64 |ve_vars(|"net_mod|
|00000960| 65 6d 2c 6e 65 74 5f 73 | 65 72 69 61 6c 5f 70 6f |em,net_s|erial_po|
|00000970| 72 74 2c 6e 65 74 5f 63 | 61 62 6c 65 22 29 0d 03 |rt,net_c|able")..|
|00000980| 98 5c f2 73 61 76 65 5f | 76 61 72 73 28 22 6e 65 |.\.save_|vars("ne|
|00000990| 74 5f 70 75 6c 73 65 5f | 64 69 61 6c 2c 6e 65 74 |t_pulse_|dial,net|
|000009a0| 5f 64 69 61 6c 5f 70 72 | 65 66 69 78 2c 6e 65 74 |_dial_pr|efix,net|
|000009b0| 5f 70 6f 70 31 2c 6e 65 | 74 5f 70 6f 70 32 2c 6e |_pop1,ne|t_pop2,n|
|000009c0| 65 74 5f 70 6f 70 33 2c | 6e 65 74 5f 6f 74 68 65 |et_pop3,|net_othe|
|000009d0| 72 5f 6e 75 6d 62 65 72 | 22 29 0d 03 a2 39 f2 73 |r_number|")...9.s|
|000009e0| 61 76 65 5f 76 61 72 73 | 28 22 6e 65 74 5f 61 63 |ave_vars|("net_ac|
|000009f0| 63 6f 75 6e 74 2c 6e 65 | 74 5f 70 61 73 73 77 6f |count,ne|t_passwo|
|00000a00| 72 64 2c 6e 65 74 5f 69 | 70 5f 61 64 64 72 65 73 |rd,net_i|p_addres|
|00000a10| 73 22 29 0d 03 ac 3e f2 | 73 61 76 65 5f 76 61 72 |s")...>.|save_var|
|00000a20| 73 28 22 6e 65 74 5f 6d | 61 69 6e 5f 75 73 65 72 |s("net_m|ain_user|
|00000a30| 2c 6e 65 74 5f 72 65 61 | 6c 5f 6e 61 6d 65 2c 6e |,net_rea|l_name,n|
|00000a40| 65 74 5f 6f 72 67 61 6e | 69 7a 61 74 69 6f 6e 22 |et_organ|ization"|
|00000a50| 29 0d 03 b6 27 f2 73 61 | 76 65 5f 76 61 72 73 28 |)...'.sa|ve_vars(|
|00000a60| 6e 65 74 5f 70 72 6f 76 | 69 64 65 72 5f 76 61 72 |net_prov|ider_var|
|00000a70| 69 61 62 6c 65 73 24 29 | 0d 03 c0 0f f2 73 61 76 |iables$)|.....sav|
|00000a80| 65 5f 63 6c 6f 73 65 0d | 03 ca 05 e1 0d ff       |e_close.|......  |
+--------+-------------------------+-------------------------+--------+--------+